YES 0.807
H-Termination proof of /home/matraf/haskell/eval_FullyBlown_Fast/List.hs
H-Termination of the given Haskell-Program with start terms could successfully be proven:
↳ HASKELL
↳ BR
mainModule List
| ((intersperse :: a -> [a] -> [a]) :: a -> [a] -> [a]) |
module List where
| import qualified Maybe import qualified Prelude
|
| intersperse :: a -> [a] -> [a]
intersperse | _ [] | = | [] |
intersperse | _ (x : []) | = | x : [] |
intersperse | sep (x : xs) | = | x : sep : intersperse sep xs |
|
module Maybe where
| import qualified List import qualified Prelude
|
Replaced joker patterns by fresh variables and removed binding patterns.
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
mainModule List
| ((intersperse :: a -> [a] -> [a]) :: a -> [a] -> [a]) |
module List where
| import qualified Maybe import qualified Prelude
|
| intersperse :: a -> [a] -> [a]
intersperse | vw [] | = | [] |
intersperse | vx (x : []) | = | x : [] |
intersperse | sep (x : xs) | = | x : sep : intersperse sep xs |
|
module Maybe where
| import qualified List import qualified Prelude
|
Cond Reductions:
The following Function with conditions
is transformed to
undefined0 | True | = undefined |
undefined1 | | = undefined0 False |
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
mainModule List
| (intersperse :: a -> [a] -> [a]) |
module List where
| import qualified Maybe import qualified Prelude
|
| intersperse :: a -> [a] -> [a]
intersperse | vw [] | = | [] |
intersperse | vx (x : []) | = | x : [] |
intersperse | sep (x : xs) | = | x : sep : intersperse sep xs |
|
module Maybe where
| import qualified List import qualified Prelude
|
Haskell To QDPs
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
↳ QDP
↳ QDPSizeChangeProof
Q DP problem:
The TRS P consists of the following rules:
new_intersperse(wu3, :(wu40, :(wu410, wu411)), ba) → new_intersperse(wu3, :(wu410, wu411), ba)
R is empty.
Q is empty.
We have to consider all minimal (P,Q,R)-chains.
By using the subterm criterion [20] together with the size-change analysis [32] we have proven that there are no infinite chains for this DP problem. From the DPs we obtained the following set of size-change graphs:
- new_intersperse(wu3, :(wu40, :(wu410, wu411)), ba) → new_intersperse(wu3, :(wu410, wu411), ba)
The graph contains the following edges 1 >= 1, 2 > 2, 3 >= 3